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ABSTRACT 


This  Technical  Memorandum  (TM)  describes  the  CRD80  program. 
CRD80  is  an  interactive,  time-sharing  FORTRAN  program  for 
adding,  deleting,  changing,  and  moving  80-character  card-image 
records  on  a file.  CRD80  capabilities  are  described  and 
user  instructions  are  include^. 
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SECTION  1.  INTRODUCTION 


This  section  contains  a general  description  of  the  CRD80 
program,  its  hardware  and  software  requirements,  and  a list 
of  pertinent  reference  material. 


1 . 1 General  Description 

CRD80  is  an  interactive,  time-sharing  FORTRAN  program  which 
allows  the  user  to  modify  an  80-character  card-image  BCD  file. 
The  file  must  be  a permanent  file  resident  in  the  users 
catalog.  The  file  may  consist  of  data  input  records  or  the 
source  language  statemerts  of  a program.  CRD80  may  be  used 
to  alter  the  content  of  any  record  on  the  file,  to  rearrange 
the  order  of  the  records  on  the  file,  to  delete  existing  rec- 
ords from  the  file,  and  to  add  new  reocrds  to  the  file.  Sin- 
gle records  or  contiguoi  s blocks  of  records  may  be  moved,  added, 
or  deleted  by  simple  user  commands  input  from  a terminal: 
e.g.,  "d  10"  (delete  the  tenth  record).  If  the  user  does  not 
know  the  relative  positions  of  records  on  the  file  he  wishes 
to  modify,  he  may  first  use  CRD80  to  produce  a file  listing 
which  will  show  the  record  number  (relative  location)  of  each 
record.  He  may  then  mocify  the  file  in  a subsequent  execu- 
tion of  CRD80. 

The  original  file  is  not  altered  by  CRD80  unless  the  user 
elects  to  resave  the  modified  file  with  the  same  catalog  name 
as  the  original  file.  The  user  may  elect  to  save  the  modi- 
fied file  under  another  catalog  name  or  simply  elect  to  dis- 
card it.  In  either  case,  the  original  file  is  not  altered. 

When  the  user  selects  a record  on  the  file  to  be  modified, 
the  record  is  displayed  for  inspection.  After  the  modifica- 
tion, the  updated  recon.  is  displayed  for  user  acceptance  or 
reiection  of  the  alteration.  Modifications  entered  by  the 
user  do  not  alter  the  record  number  sequence  of  the  input 
file.  That  is,  if  the  user  orders  record  10  deleted  and  then 
wishes  to  change  record  11,  he  enters  "C  11"  (change  the  11th 
record),  not  "C  10."  Assuming  no  other  additions  or  deletions, 
record  11  on  the  old  file  will  become  record  10  on  the  new 
tile,  but,  during  CKD80  command  entry  phase,  the  record  num- 
bering of  the  file  being  modified  remains  constant.  Before 
the  user  makes  a decision  concerning  the  disposition  of  the 
modified  file  or  concernirg  the  output  options,  he  is  afforded 
the  opportunity  to  have  ary  or  all  of  the  records  on  the  new 
file  displayed  at  the  terminal. 
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The  capabilities  described  above  are  discussed  in  more  detail 
in  the  following  sections.  Additional  capabilities  of  CRD 80 
are  also  described  later.  A source  listing  of  CRD80  is 
included  in  the  appendix. 


1.2  Hardware 

The  CRD80  program  requires  the  following  minimum  hardware 
items  for  successful  execution: 

a.  HIS  Series  60  (level  66)/6000  computer 


b.  Available  core  memory:  32K  words 

c.  Sufficient  disk  space  to  accommodate,  in  addition 
to  the  permanent  file  to  be  modified,  a temporary 
file  requirement  of  235  links. 

d.  One  online  or  remote  printer  if  hardcopy  output 
is  desired 

e.  One  VIP  7705  interactive  remote  terminal  (use  of 
another  terminal  may  require  coding  modifications) . 


1.3  Support  Software 

The  CRD80  program  requires  the  following  HIS  software  support 
package  for  successful  operation. 

a.  General  Comprehensive  Operating  Supervisor  (GCOS) 

b.  Time-Sharing  System  (TSS) 

c.  Series  6000  TSS  FORTRAN  Compiler 

d.  General  Macro  Assembler  Program  (GMAP) 

e.  Series  6000  Time-sharing  Applications  Library, 

User  Master  Catalog  Library /APPLIB 
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1.4  References 


Information  on  the  programming  conventions  used  in  CRD80  may 
be  found  in  the  following  Honeywell  Information  System,  Inc., 
manuals : 

a.  Honeywell  Information  Systems,  Inc.,  FORTRAN,  Order 
No.  BF67 , Rev.  1,  Wellesley  Hills,  Mass.,  March  1973 

b.  Honeywell  Information  Systems,  Inc.,  Time-Sharing 
System  General  Infomation  Manual,  Order  No.  DD22, 
Rev.  0,  Wellesley  Hills,  Mass.,  April  1974 

c.  Honeywell  Information  Systems,  Inc.,  Time-Sharing 
FORTRAN , Order  No.  BR70,  Rev.  1,  Wellesley  Hills, 
Mass. , February  1973 

d.  Honeywell  Information  Systems,  Inc.,  TSS  Programmer's 
Reference  Manual,  Order  No.  DD17,  Rev.  0,  March  1974 

e.  Honeywell  Information  Systems,  Inc.,  Honeywell  Time- 
Sharing  Application  Library  Guide , Volume  IV  - Busi- 
ness and  Finance,  Order  No.  DA4&.  Rev.  1.  June  1973. 
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SECTION  2.  USER  INSTRUCTIONS 

In  this  section  examples  of  user-terminal  dialog  and  accom- 
panying explanatory  text  concerning  the  dialog  are  inter- 
spersed with  other  descriptive  text.  To  avoid  confusion,  the 
user-terminal  dialog  is  separated  from  other  text  by  a series 
of  asterisks:  (***)  . Messages  from  the  terminal  to  the  user 
are  in  capital  letters  and  underlined  to  distinguish  them 
from  the  user  responses.  User  responses  are  in  lower  case 
letters  and  not  underlined.  It  should  be  understood  when 
operating  the  terminal  that  the  messages  displayed  are  not 
actually  underlined  and  may  be  in  lower  case  letters.  The 
message  texts,  however,  are  identical  to  those  indicated  in 
the  following  sections.  £11  terminal  dialog  between  the  user 
and  the  terminal  is  left  justified.  Explanatory  remarks  con- 
cerning the  dialog  are  offset  to  the  right  to  distinguish 
them  from  the  terminal  messages  and  the  user  responses. 


2 . 1 Logging  On  and  Off  the  Terminal 

The  following  procedure:-,  for  logging  on  and  off  the  terminal 
are  system  dependent. 

To  log  on: 

* * * 

User  logs  onto  terminal. 

$*$log24, tss 
USERID? 

User  enters  his  USERID  and  password. 

6 7 4cdp09$ password 
IDENT? 

User  enters  his  identification. 

1820513/30/4513, crd80 
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CLASSIFICATION  OF  YOUR  OUTPUT? 


User  enters  appropriate  classification:  UZZ,CZZ, 
SZZ , TZZ , etc. 


uzz 

CLASSIFICATION  OF  FILES  YOU  WILL  CREATE? 

User  enters  appropriate  classification. 


uzz 

SYSTEM? 


User  enters  his  catalog  file  name  for  CRD80. 

forty  O 674idp00/csc/idagam/crd80 

READY? 

1 

User  enters  run  command.  Since  CRD80  references 
a routine  on  APPLIB,  the  file  APPLIB  must  be 
referenced  as  a user  random  library.  The  r denotes 
read  permission. 

run  = (ulib) library/applib,r 

THIS  PROGRAM  ADDS,  DELETES,  CHANGES  80  CHARACTER  RECORDS 
ENTER  THE  CAT/FILE  STRING  OF  THE  RECORD  FILE  YOU  WISH  TO 
MODIFY 


User  enters  the  catalog  file  string  for  his  file. 

674idp00/csc/idagam/verfyy 

If  the  file  attachment  is  not  successful,  one  of 
several  messages  similar  to  the  following  will 
appear : 

NAME  NOT  IN  MASTER  CATALOG 

FILE  ATTACHMENT  UNSUCCESSFUL.  REASON  UNKNOWN  IF  NOT  STATED 
ABOVE . 
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ISTAT  RETURNED  « 000000004001 

DC  YOU  WISH  TO  TERMINATE  CRD80.  PLEASE  ANSWER  YES  OR  NO 


User  does  not  wish  to  terminate  CRD80. 


n 

ENTER  THE  CAT/FILE  STRING  OF  THE  RECORD  FILE  YOU  WISH  TO 
MODIFY 


User  enters  the  catalog  file  string  for  his  file. 
6 74  idpOO/csc/idagam/verfyl 

CAT/FILE  STRING  OF  YOUR  INPUT  FILE  IS  674 IDP00/CSC/IDAGAM/ 
VERFY1 


RECORD  NUMBERS  MUST  BE  WITHIN  RANGE  OF  1 TO  9999 
THESE  NUMBERS  ARE  THE  POSITION  OR  LOCATION  ON  THE  FILE 
DO  NOT  USE  MORE  THAN  4 TIGITS  FOR  A RECORD  NUMBER 

RECORD  IDENT  MEANS  THE  FIRST  10  CHARACTERS  ON  A RECORD 
WHEN  THEY  ARE  USED  TO  INDICATE  A SEQUENTIAL  LOCATION 
DO  YOU  WISH  CRDSO  TO  MONITOR  THE  IDENT  SEQUENCE?  ET'^ER 
— YES--IF  YOUR  FILE  CONTAINS  RI  AND  YOU  WISH  TO  MON.  iOR 
THE  IDENT  SEQUENCE 

—NO— IF  THIS  FILE  DOES  NOT  HAVE  RECORD  IDENTS  OR  IF  YOU 
WISH  TO  IGNORE  ANY  RECORD  IDENTS  IT  MAY  HAVE. 

User  file  does  not  contain  record  idents. 


n 


If  y had  been  entered,  CRD80  would  check  the  new 
file  to  ensure  tnat  the  records  were  in  ascending 
sequence  according  to  the  first  10  characters  on 
the  records.  Discrepancies  would  be  marked  on  the 
printer  copy  with  "SEQ"  or  "DUPL"  indicating  a 
record  not  in  sequence  or  a record  whose  ident  was 
a duplicate  of  the  preceding  record,  respectively. 

* * * * 

The  program  will  then  read  the  input  file  and  modify  it 
according  to  user  commands  which  will  be  described  later. 


r 

| 

i 


I 
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When  the  modification  is  completed  or  the  user  elects  to 
terminate  CRD80 , the  user  logs  off  as  follows: 


ENTER  ONE THEN  ENTER  ONE THEN  ENTER 

CHARACTER SPACE  OR  COMMA  ONE  NUMBER 

R READ  A RECORD NUMBER  OF  A RECORD  ON  OLD  FILE 

A ADD  A RECORD NUMBER  OF  A RECORD  ON  OLD  FILE 

AFTER  WHICH  THIS  NEW  RECORD  IS 
TO  BE  INSERTED.  ENTER  NUMBER  0 
IF  RECORD  WILL  PRECEDE  ALL  OLD 
C CHANGE  A RECORD  NUMBER  OF  A RECORD  ON  OLD  FILE 


* * * * 

User  calls  system. 

syst 

SYSTEM? 

User  logs  off. 

bye 

* * * * 


2 . 2 User  Command  Menu 

The  User  Command  Menu  in  CRD80  is  displayed  in  two  formats: 

(1)  the  tutorial  menu  in  which  detailed  response  instructions 
are  displayed  for  each  command  and  (2)  a short  menu  contain- 
ing only  the  first  character  of  a command  entry.  The  tutor- 
ial menu  is  initially  displayed  and  thereafter  is  displayed 
only  if  the  user  enters  an  incorrect  command.  The  user 
does  not  have  to  call  for  the  command  menu.  Immediately 
after  the  input  file  has  been  read  and  the  number  of  records 
on  it  has  been  reported  to  the  user,  the  command  menu  will 
appear.  It  will  reappear  in  either  tutorial  or  short  form 
following  execution  of  any  command  except  the  command  signi- 
fying there  is  no  more  command  input  and  the  command  to 
terminate  the  program.  The  tutorial  form  of  the  command  menu 
is  shown  below. 


ENTER  ONE  OF  FOLLOWING  RESPONSES  AS  LETTER,  SPACE,  NUMBER 


DELETE  A RECORD  NUMBER  OF  A RECORD  ON  OLD  FILE 


END  OF  MY  INPUT  ENTER  NUMBER 


EXECUTE  NOW 


ENTER  NUMBER  0 


STATUS  REPORT 


TERM 


FILE  UNCHANGED 


User  wishes  to  look  at  second  record 


The  short  form  of  the  command  menu  is  shown  in  the  following 
user-terminal  dialoq. 


NEXT  P,A,C,D,E,S,T  COMMAND 


User  wishes  to  terminate  CRDflO  execution 


Note  that  this  response  uses  a comma  instead 
of  a space  to  separate  the  letter  and  the 
number.  Either  may  be  used. 


CRD80  PROGRAM  TERMINATED 


The  remainder  of  this  section  describes  the  procedures, 
starting  with  the  command  menu,  to  accomplish  the  various 
types  of  file  modifications  possible  with  CRD80 . In  all 
instances  where  data  entries  in  a record  are  required,  CRD80 
will  display  header  lines  containing  card  column  markings  to 
enable  the  user  to  make  the  entry  in  the  correct  column  posi 
tion  of  the  record.  Partial  column  marking  header  lines  are 
shown  below  over  an  example  of  a record. 


1 .’34  5678901  2 34  5678  901 2 34  56'890 01234  5678  90 


THIS  IS  A SAMPLE  RECORD 


hould  be  noted  that  file  modifications  can  be  mad 
rd  order  desired.  That  is,  record  7 can  be  chang 
rd  2 deleted,  then  a record  added  after  record  15 
ver,  more  efficient  execution  results  if  modifica 
made  in  ascending  sequence  of  record  numbers. 


next  r , a , c , d , f: , s , t command? 


two  new  records  following 


HOW  MANY  RECORDS  UP  TO  7 — DO  YOU  WISH  TO  ADD  AFTER 

RECORD  NUMBER  3??  ENTER  A NUMBER  FROM  1 TO  7.  IF  YOU  D( 
WISH  TO  ADD  ANY  RECORDS  AFTER  RECORD 


ENTER  0 


User  wishes  to  add  two  new  records  which  wi 
follow  record  3 in  the  modified  file  in  the 
order  in  which  he  will  enter  them. 


WHEN  CARD  COLUMN  MARKING  GUIDE  APPEARS 
WILL  BE  ADDED  AFTER  RECORD  3. 

DO  NOT  ENTER  MORE  THAN  2 RECORDS 


ENTER  NEW  RECORD  WHICH 


User  enters  new  records  to  be  added 


this  is  first  new  record 
this  is  second  new  record 


. 


1 2 

• 12  3 456  789012  3456  78901214 etc. 

THIS  IS  FIRST  NEW  RECORD 
THIS  IS  SECOND  NEW  RECORD 

ARE  THE  ABOVE  2 RECORDS  TO  BE  ADDED  AFTER  RECORD  3 AS  A 
CONSECUTIVE  BLOCK  CORRECT??  Y--YES,  N — NO . 

User  responds  that  entries  are  correct. 

If  the  user  had  entered  n,  the  short  command 
menu  would  be  displayed. 


2.2.2  Deletin')  . Record  or  Block  of  Records.  The  procedures 
for  deleting  a .itnql"  r<  ccr<?  and  Ter  deleting  a contiguous 
block  of  records  art  snown  in  this  subsection. 

* * * * 

NEXT  R,AfC,D,E,S,T  COMM/ NC ? 

User  wishes  to  emit  the  fifth  and  sixth  records 
of  the  old  file  from  the  new,  modified  file. 

d 5 

1 2 

012  34  56  7890123456789012  34  etc. 

THE  FIFTH  RECORD  IN  THE  OLD  FILE 

WHAT'S  TO  BE  DONE  WITH  THIS  RECORD — NUMBER  5 — ? ? 

ENTER  ONLY  ONE  OF  THE  FOLLOWING  CHARACTERS 
C- -CHANGE  IT 

D--DELETE  IT SINGER  RECORD  DELETE 

DB--DELETE  CONSECUTIVE  BLOCK  OF  RECORDS  WITH  THIS 
BEING  FIRST  RECORD  OF  THE  BLOCK  OF  RECORDS 
M--MOVE  IT SINGLE  RECORD  MOVE 

B- -BLOCK  MOVE  OF  MORE  THAN  ONE  CONSECUTIVE  RECORD  WITH  THIS 
BEING  THE  BEGINNING  RECORD  OF  THE  BLOCK  OF  RECORDS 
R--RETU RN  IT  UNCHANGED 
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User  wishes  to  delete  a block  of  two  records, 
db 

If  user  had  wished  to  delete  only  record  5, 
he  would  have  entered  d and  the  short  command  menu 
would  have  been  displayed.  Entering  an  r would 
also  have  returned  the  user  to  the  command  menu 
display . 

FIRST  RECORD  NUMBER  OF  BLOCK  TO  BE  DELETED  IS  5 

ENTER  RECORD  NUMBER  OF  LAST  RECORD  IN  BLOCK  TO  BE  DELETED 

User  wishes  to  delete  records  5 and  6. 


6 

THIS  IS  SIXTH  RECORD  IN  THE  OLD  FILE  (sample  record) 

THIS  IS  LAST  RECORD  6 OF  BLOCK  BEGINNING  WITH 

RECORD  5 DO  YOU  WISH  TO  DELETE  THIS  BLOCK  Y— YES,  N--NO. 

User  confirms  deletion  of  records  5 and  6. 

y 

If  n had  been  entered,  user  would  be  assured 
block  would  not  be  deleted  and  the  short  command 
menu  would  have  been  displayed. 

* * * * 

2.2.3  Changing  a Record  or  Changing  and  Then  Moving  a Record. 
The  procedures  for  changing  a single  record  and  for  moving 
(or  relocating)  a record  that  has  been  changed  are  described 
in  this  subsection.  Only  single  records  (no  blocks)  may  be 
changed  or  changed  and  moved. 


* * * * 

NEXT  R,A,C,D,E,S,T  COMMAND? 


User  wishes  to  change  record  7 


■i  ~ .at-vu,.  . 


t 


WI iEN  OLD  RECORD  7 IS  SHOWN 
ENTER  THE  COMPLETE  CHANGED  RECORD 

1 -j~  ------ 

0123456  7890  L2  3 4 56  7 890  1 2~  34 etc. 

RECORD  SEVEN  IS  IN  ERkORRKR  AND  NOT  CORRECT 

User  corrects  the  error  in  record  7 by 
entering  initial  character  of  record  and  over- 
writing any  characters  to  be  changed.  The  cursor 
is  simply  moved  over  correct  characters  until  it 
passes  the  end  of  the  record  entry.  Characters 
are  deleted  by  spacing  over  them. 

Record  7 was  in  error  and  is  now  correct. 

RECORD  SEVEN  WAS  IN  ERROR  AND  IS  NOW  CORRECT 
IS  ABOVE  RECORD  ENTRY  CORRECT?  ENTER  ONLY  ONE  LETTER 

N NO,  NOT  CORRECT 

V YES,  CORRECT 

I • RECORD  ENTRY  IS  CORRECT  AND  NOW  I WISH  TO  MOVE  IT 

User  wishes  to  move  record. 

m 

If  user  had  responded  with  n,  he  would  have  been 
shown  the  old  record  again  and  the  process  repeated. 
If  y had  been  entered,  the  short  command  menu 
would  then  be  displayed. 

ENTER  NUMBER  OF  A RECORD  ON  OLD  FILE  AFTER  WHICH  THIS 
CHANGED  RECORD  7 IS  TO  BE  INSERTED.  ENTER  NUMBER  0 IF 
THIS  RECORD  WILL  PRECEDE  ALL  THE  RECORDS  ON  THE  OLD  FILE. 


User  wishes  changed  record  7 to  follow 
record  8 . 

8 

The  short  command  menu  is  then  displayed. 

A * * * 


2.2.4  Moving  a Record  or  Block  of  Records.  The  procedures 
for  moving  a record  or  a block  of  records  are  described  in 
this  subsection. 


* * * * 


NEXT  R,A,C,D,E,S,T  COMMAND? 

User  wishes  to  move  a block  of  three  records  begin- 
ning with  record  10  (records  10,  11,  and  12)  to  a 
position  in  the  file  after  record  20.  First,  he 
reads  record  10  to  be  sure  that  it  is  the  correct 
starting  record  for  the  block. 


r 10 


1 2 

0123456789012345678901234.. .etc. 
10.222  AAA  TENTH  RECORD  10 


WHAT'S  TO  BE  DONE  WITH  THIS  RECORD  — NUMBER  10  — ? 

ENTER  ONLY  ONE  OF  THE  FOLLOWING  CHARACTERS 
C --  CHANGE  IT 

D — DELETE  IT  SINGLE  RECORD  DELETE 

DB  --  DELETE  CONSECUTIVE  BLOCK  OF  RECORDS  WITH  THIS 
BEING  FIRST  RECORD  OF  THE  BLOCK  OF  RECORDS 
M — MOVE  IT  SINGLE  RECORD  MOVE 

B --  BLOCK  MOVE  OF  MORE  THAN  ONE  CONSECUTIVE  RECORD  WITH 

THIS  BEING  THE  BEGINNING  RECORD  OF  THE  BLOCK  OF  RECORDS 
R --  RETURN  IT  UNCHANGED 


User  wishes  to  move  a block  of  records  beginning 
with  this  record. 


b 


If  user  had  wanted  to  move  only  record  10,  he  would 
have  entered  an  m.  He  would  then  be  asked  for  the 
record  number  which  this  record  would  follow.  The 
short  command  menu  then  would  be  displayed. 

FIRST  RECORD  NUMBER  OF  BLOCK  TO  BE  MOVED  IS  10 
ENTER  LAST  RECORD  NUMBER  OF  BLOCK,  THEN  ENTER ~COMMA  OR  SPACE 
ENTER  RECORD  NUMBER  OF  A RECORD  NOW  ON  OLD  FILE  WHICH  THIS 
BLOCK  OF  CONSECUTIVE  RECORDS  WILL  FOLLOW  ON  NEW  FILE 
EXAMPLE  IF  FIRST  RECORD  WAS  7,  ENTER  10,35  AND  RECORDS 
7,8,9,10  WILL  FOLLOW  RECORD  35  ON  NEW  FILE 


I 


User  enters  number  of  last  record  in  block  to  be 

moved  and  enters  a 20  since  he  wants  records  10,  11, 

and  12  to  follow  record  20.  ! 

12,20 

The  short  command  menu  is  then  displayed. 

* * * * 


2.2.5  Reading  a Record.  The  procedure  for  reading  a record 
on  the  oTcTTTle  is  described  in  this  subsection.  This  capa- 
bility enables  the  user  to  verify  that  the  records  on  the 
file  he  is  reading  correspond  in  location  and  content  to  those 
printed  from  a previous  listing  of  the  file.  It  also  enables 
a user  to  look  at  any  record  on  a file  which  he  may  want  to 
examine  to  identify  its  contents  but  not  necessarily  to  modify. 

* * * * 

NEXT  R,A,C,D,E,S,T  COMMAND? 

User  wishes  to  see  first  record. 

r 1 


01234567890123456789012  34 etc. 

CP REP 1 IDAGAM  II  PREPROCESSOR  PROGRAM 

WHAT'S  TO  BE  DONE  WITH  THIS  RECORD  — NUMBER  1 — ? ? 

ENTER  ONLY  ONE  OF  THE  FOLLOWING  CHARACTERS 
C ~~  CHANGE  IT 

D — DELETE  IT  SINGLE  RECORD  DELETE 

DB  — DELETE  CONSECUTIVE  BLOCK  OF  RECORDS  WITH  THIS 
BEING  FIRST  RECORD  OF  THE  BLOCK  OF  RECORDS 
M — MOVE  IT  SINGLE  RECORD  MOVE 

B — BLOCK  MOVE  OF  MORE  THAN  ONE  CONSECUTIVE  RECORD  WITH  THIS 
BEING  THE  BEGINNING  RECORD  OF  THE  BLOCK  OF  RECORDS 
R — RETURN  IT  UNCHANGED 


* * * * 


■Mini  . ” i. 


This  example  illustrates  the  use  of  CRD80  to  examine  the 
content  of  a file.  The  first  record  indicates  that  the 
file  contains  a computer  program  called  PREP1.  CRD80  may 
be  used  to  alter  the  coding  in  this  program.  If  no  altera- 
tion is  desired  when  the  short  command  menu  is  displayed,  the 
user  should  enter  the  terminate  command.  In  altering  any  file, 
the  user  should  be  aware  that  CRD80,  as  presently  coded,  will 
write  the  modified  file  in  BCD.  If  an  ASCII  file  is  processed 
by  CRD80 , the  user  must  perform  a BCDASC  conversion  on  the 
modified  file  after  CRD80  has  terminated. 

2.2.6  Executing  All  Modifications  Ordered.  The  procedure  for 
executing  the  modifications  to  the  £ile  ordered  by  the  user 
is  described  in  this  subsection.  This  procedure  does  not 
alter  the  old  file  in  any  way.  The  necessary  data  to  accom- 
plish the  creation  of  a new,  modified  file  are  stored  in  inter- 
nal areas  in  CRD80.  The  command  to  execute  informs  the  pro- 
gram that  there  will  be  no  more  modification  input  from  the 
user.  Therefore,  the  user  command  menu  will  no  longer  be 
displayed  and  the  program  will  begin  creating  the  new  file, 
using  temporary  files,  based  on  the  modifications  already 
ordered.  The  new  file  may  later  be  saved  on  a permanent  file, 
resaved  with  the  same  catalog  file  string  as  the  old  file 
(in  which  case  the  contents  of  the  old  file  are  replaced  with 
those  of  the  new  file) , or  the  new  file  may  be  discarded. 

* * * * 

NEXT  R, A,C,D,E,S,T  COMMAND? 

User  has  no  more  modifications  to  make  to  the 
file  and  wishes  to  build  the  new  file. 

e 0 

NNNN  CARDS  HAVE  BEEN  PROCESSED 

After  each  group  of  50  records  has  been  processed, 
this  message  will  be  displayed  indicating  the  cumu- 
lative number  (NNNN)  of  records  processed.  Addi- 
tional messages  displayed  during  program  execution 
are  described  in  section  3. 

* * * * 
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2.2.7  Terminating  Program  Execution.  The  procedure  for  ter- 
minating  the  CRD&O  program  is  described  in  this  subsection. 

As  discussed  in  subsection  2.1,  if  the  user  is  unable  to 
attach  the  file  he  wishes  to  modify,  he  may  elect  to  terminate 
the  program  at  that  point.  During  the  file  modification  proc- 
ess (but  prior  to  commanding  execution  of  the  modifications 
ordered) , he  may  terminate  the  program  as  previously  shown  in 
subsection  2.2  using  the  terminate  command  from  the  user  com- 
mand menu.  Reasons  for  terminating  might  include  the  follow- 
ing: user  belatedly  realizes  he  has  the  wrong  file;  user 

discovers  he  has  made  unwanted  modifications;  user  receives  a 
warning  the  system  is  going  down  before  he  can  complete  the 
file  update  session.  Regardless  of  termination  reason,  once 
the  terminate  command  is  entered,  all  modifications  made  are 
lost. 

* * * * 

NEXT  R,A,C,D,E,S,T  COMMAND? 


User  wishes  to  terminate  CRD80 . 


CRD80  PROGRAM  TERMINATED 


All  files  are  removed  from  the  users  available 
file  table  (AFT)  and  program  execution  stops. 


* * * * 


2.2.8  Requesting  Status  of  Record  Modifications.  The  pro- 
cedures  for  requesting  the  status  of  record  modifications  is 
described  in  this  subsection.  It  is  possible,  in  making  a 
great  number  of  modifications,  that  a user  may  not  recall 
which  record  was  last  altered  in  proceeding  through  a large 
file.  The  status  report  alleviates  this  problem  by  displaying 
the  last  records,  if  any,  which  have  been  placed  in  the  add, 
change,  or  delete  storage  areas  as  a result  of  an  add,  change, 
or  delete  record  command. 


* * * * 


NEXT  R,A,C,D,E,S,T  COMMAND? 


User  requests  a status  report. 
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RECORD  FOLLOWING  6 LAST  OF  2 IN  ADD  BUFFER 
1034  MICHAEL  STREET,  ARLINGTON,  VA.' 

The  above  record  was  added  following  record  6 
and  is  the  last  of  two  records  which  so  far  have 
been  ordered  added  to  the  old  file. 

NO  RECORDS  IN  CHANGE  BUFFER 

The  user  has  not  ordered  any  changes  to  any 
existing  records  on  the  old  file. 

RECORD  12  LAST  OF  4 RECORDS  IN  DELETE  BUFFER 
3632  RAPHAEL  STREET,  FALLS  CHURCH,  VA? 

The  user  has,  thus  far,  ordered  four  records  deleted 
from  the  old  file,  the  last  one  being  record  12. 

IF  MOVE  WAS  LAST  ENTRY,  SAME  RECORD  IN  ADD  AND  DELETE  BUFFER 

If  the  users  last  command  had  been  a move  record 
command,  the  records  displayed  as  the  last  records 
in  the  add  and  delete  buffer  would  be  identical. 

In  the  example  shown,  the  records  are  not  the  same. 
If  the  user  has  been  changing  his  file  by  proceed- 
ing in  ascending  sequence  of  record  numbers  from 
the  beginning  of  the  file,  the  above  status  report 
would  indicate  he  has  made  six  changes  to  the  file, 
the  last  being  a command  to  delete  record  12. 

TRANSMIT  A SPACE  TO  RESUME 


User  depresses  space  bar  and  then  depresses  trans- 
mit key  to  resume  program  execution. 

space, transmit 


* * * * 
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SECTION  3.  PROGRAM  EXECUTION 

This  section  contains  the  user-terminal  dialog  which  occurs 
after  the  user  has  entered  the  execute  command. 


3. 1  General 

When  the  user  finishes  with  file  modification  input  and 
enters  the  execute  command,  the  user  command  menu  is  no 
longer  displayed.  CRD80  begins  processing  those  file  modifi- 
cations which  have  already  been  ordered.  The  altered  file  is 
constructed  on  a temporary  file  using:  (1)  records  read  from 
the  old  file,  and  (2)  data  previously  entered  by  user  commands 
and  stored  in  CRD80  storage  areas.  The  terminal  messages 
displayed  during  this  process  are  shown  in  the  following  sub- 
sections with  the  user  responses.  The  user- terminal  dialog 
is  presented  in  the  same  sequence  that  occurs  during  program 
execution . 


3. 2  File  Processing  Messages 

* * * * 

NNNN  CARDS  HAVE  BEEN  PROCESSED 

NUMBER  OF  CARDS  READ  FROM  OLD  INPUT  FILE  IS  NNNN 
TRANSMIT  A SPACE  TO  RESUME 

space , transmit 

* * * * 


3 . 3  Print  Heading  Label  Message 

* * * * 


IF  YOU  INTEND  TO  SAVE  OUTPUT  ON  A NEW  FILE,  ENTER  THE  NEW 
CAT/FILE  STRING  — MAX  30  CHARACTERS  — OR  ENTER  --  SAME  — 
IF  OUTPUT  WILL  BE  RESAVED  UNDER  SAME  CAT/FILE  STRING  AS  OLD 
INPUT  FILE 


User  elects  to  save  the  newly  modified  file. 
674 idpOO/csc/idagam/newf 
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If  user  had  entered  "same",  the  newly  modified  file 
would  have  been  resaved  on  the  same  catalog  file 
string  as  the  old  file,  thus  replacing  the  contents 
of  the  old  file  with  the  contents  of  the  modified 
file.  This  cat/file  string  will  appear  on  any 
printer  output.  The  user  later  has  the  opportunity 
to  change  the  file  disposition  after  viewing  the 
new  file. 

* * * * 


3.4  File  Inspection  Message 


* * * * 


DO  YOU  WISH  TO  SEE  ANY  RECORDS  ON  YOUR  NEW  FILE,  YES  OR  NO 


User  wishes  to  examine  file. 


TO  SEE  SEGMENT  OF  THE  FILE,  ENTER  THE  STARTING  RECORD  NUMBER 


FOLLOWED  BY  THE  ENDING  RECORD  NUMBER  FOR  THE  SEGMENT 


EXAMPLE  RESULT 

1 0 12  RECORDS  10,  11,  12  DISPLAYED 


RECORD  10  DISPLAYED 


ENTER  FIRST  AND  LAST  RECORD  NUMBERS 


ENTER  '0,0'  WHEN  YOU  HAVE  COMPLETED  VIEWING  THE  NEW  FILE 


User  wishes  to  see  first  two  records. 


THIS  IS  RECORD  ONE 
THIS  IS  RECORD  TWO 

TRANSMIT  A SPACE  TO  RESUME 


space, transmit 

ENTER  FIRST  AND  LAST  RECORD  NUMBERS 


ENTER  ’0,0'  WHEN  YOU  HAVE  COMPLETED  VIEWING  THE  NEW  FILE 


User  does  not  wish  to  see  more  records 


0,0 

NNNN  CARDS  PROCESSED  FROM  ASCII  TO  BCD 

NUMBER  OF  RECORDS  WRITTEN  TO  NEW  ASCBCD  FILE  IS  NNNN 

TRANSMIT  A SPACE  TO  RESUMF 

space , transmit 

* * * * 


3 . 5 Print/Display  Options  Messages 

* * * * 

DO  YOU  WANT  A PRINTED  COPY  OF  FILE?  — YES — OR — NO — 

User  wants  a printer  copy  of  file. 

y 

If  the  user  hac.  entered  no,  the  print  options 
menu  below  would  not  be  displayed . 

ENTER  ONE  OF  THE  NUMBERS  BELOW  TO  SHOW  PRINTER  SELECTED 

PRINT  AT  SAGA  - AT  - UNCLASSIFIED  FILES  ONLY 
PRINT  AT  F-SITE  - BH  - —— 

3 PRINT  AT  MAIN  SITE  - - 

PRINT  ELSEWHERE  -??- USER  MUST  KNOW  THE  TWO 

CHARACTER  STATION  CODE 

User  elects  to  use  SAGA  printer. 


1 


COPY  YOUR  SNUMB 
3$3  3T 

TRANSMIT  A SPACE  TO  RESUME 
space , transmit 
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3.6  File  Disposition  Options  Meau 


* * * * 


WHAT  DO  YOU  WISH  TO  DO  WITH  THE  FILES? 


ENTER  ONE  RESPONSE FOR  ACTION  SHOWN  BELOW 


QUIT  OR  Q DISCARD  THE  NEW  CHANGED  FILE 


RE  SAVE  OR  R RE  SAVE  ONLY  THE  NEW  FILE,  NOT  OLD 


WARNING  — OLD  FILE  WILL  BE  LOST 
SAVE  OR  S SAVE  BOTH  NEW  AND  OLD  FILES 


IS  THE  CAT/FILE  STRING  FOR  YOUR  NEW  FILE  CORRECT  AS  SHOWN? 
674 IDPO 0/ CSC/ IDAGAM/NEWF  THIS  IS  DESCRIPTION  ON  YOUR  PRINT 
COPY  ANSWER  Y — YES,  CORRECT,  N — NO,  NOT  CORRECT 


User  realizes  the  file  name  is  wrong. 


If  y entered,  the  next  message  would  not  appear. 


ENTER  NEW  CAT/FILE  STRING  FOR  NEW  FILE 


User  enters  correct  cat/file  string. 


674idp00/csc/idagam/newer 


User  should  note  this  correction  on  the  printer 
copy  when  it  is  received. 


NEW  DATA  FILE  SAVED  6 74IDP00/CSC/IDAGAM/NEWER 
CRD80  PROGRAM  HAS  COMPLETED.  NORMAL  EXIT 


User  files  have  been  removed  from  AFT.  User 
then  logs  off  unless  he  has  another  file  to  process 
with  CRD80 . 


* * * * 


... 
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SECTION  4.  PROGRAM  LIMITS  AND  EXCEPTION  MESSAGES 

Thin  section  describes  the  program  limits  in  CRD80  and 
explains  the  terminal  messages  displayed  in  exceptional 
circumstances  when  normal  program  execution  has  been  inter- 
rupted by  a user  error. 


4 . 1 Program  Limits 

CRD80  is  limited  to  use  on  files  with  fewer  than  10,000  card- 
image  records.  Storage  areas  to  hold  file  modification  com- 
mands are  currently  programmed  for  a maximum  of  200  records. 

In  any  one  execution,  CRt)80  will  accept  200  record  changes, 

200  record  additions,  and  200  record  deletions.  Record  relo- 
cation move  commands  decrease  the  available  storage  in  both 
the  add  and  delete  storage  areas.  Thus,  if  200  records  were 
changed,  150  records  deleted  and  175  records  added,  only  25 
records  could  be  relocated  in  the  file  since  there  are  already 
175  records  in  the  add  storage  area.  If  any  of  the  modifica- 
tion limits  are  exceeded,  the  program  will  not  terminate,  but 
the  user  is  warned  that  the  modification  will  not  be  made. 
Should  this  occur,  the  user  should  save  the  new  file,  run 
CRD80  again  using  the  nev  file  as  input,  order  the  excess 
modif ications  to  be  made,  and  then  resave  the  newest  file  on 
the  former  new  file.  Unless  the  user  is  confident  of  record 
locations  in  the  file,  however,  it  is  advisable  to  wait  until 
a printer  copy  of  the  output  from  the  first  execution  is 
available.  Changes  do  net  affect  record  numbering  but  addi- 
tions, deletions,  and  moves  will  alter  the  relative  location 
of  records  in  the  file.  If  a file  contains  10,000  or  more 
records,  CRD80  will  display  a message  to  the  user  and  then 
terminate . 


4 . 2 Exception  Messages 

Exception  messages  will  be  displayed  when  the  normal  execution 
of  the  program  cannot  proceed  because  of  user  response  errors 
or  because  the  program  limits  have  been  exceeded.  Messages 
following  any  illegal  user  entry  are  self-explanatory,  and 
the  correct  user  responses  are  self-evident.  For  this  rea- 
son, and  because  they  do  not  contribute  to  the  user's  under- 
standing of  CRD80 , they  are  not  included  in  this  publication. 
Generally,  if  a user  answers  a query  an  i the  query  is 
displayed  again,  the  user  did  not  make  a legal  response.  The 
unsuccessful  file  attachment  message  is  shown  in  subsection 
2.] . 
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FILE  EXCEEDS  9999  RECORDS.  CRD80  TERMINATING 
CRD80  TERMINATED 


The  input  file  exceeds  program  limits. 

NNNNN  IS  AN  ILLEGAL  RECORD  NUMBER,  MAX  IS  NNNN . TRY  AGAIN. 

There  is  no  record  on  the  input  file  with  a rela- 
tive location  number  of  the  magnitude  requested. 

CHANGE  ENTRY  LIMIT  IS  EXCEEDED.  CHANGE  WILL  NOT  BE  MADE. 

User  has  attempted  to  make  a record  change  which 
exceeds  the  program  limit.  Change  is  not  accepted 
and  user  command  menu  is  displayed. 

ADD  ENTRY  LIMIT  EXCEEDED.  RECORD  BLOCK  NOT  ADDED. 

User  has  attempted  to  add  a record,  but  the  entry 
would  exceed  the  program  limit.  Record  will  not 
be  added  and  user  command  menu  will  be  displayed. 

RECORD  CANNOT  BE  MOVED.  ADD  OR  DELETE  BUFFER  FILLED. 

User  has  ordered  a record  relocated,  but  move  would 
exceed  program  limit.  Record  will  not  be  moved 
and  user  command  menu  will  be  displayed. 

NNN  AND  NN  ILLEGAL  FOR  BLOCK  RECORDS  MOVE.  LAST  RECORD 
NUMBER  OF  BLOCK  NN  NOT  LARGER  THAN  FIRST  NNN 

User  has  specified  a block  record  move  with  an  • 
entry  such  that  the  last  record  in  the  block  has 
a smaller  number  than  the  first.  User  is  then 
queried  concerning  disposition  of  first  record 
as  shown  in  subsection  2.2.5. 

NNNN  ILLEGAL.  MINIMUM  IS  0,  MAXIMUM  IS  NNN. 

User  has  specified  a block  record  move  with  an 
entry  for  the  record  number  which  the  block  will 
follow  in  the  file  which  is  either  negative  or 
exceeds  the  maximum  number  of  records  on  the  file. 
User  is  then  queried  concerning  disposition  of 
first  record  as  shown  in  subsection  2.2.5. 
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N RECORDS  IN  THIS  BLOCK.  REMAINING  STORAGE  IN 

r_HE  ADD  OB  DELETE  BUFFERS  INSUFFICIENT ■ BLOCK  CANNOT  BE  MOVED . 

User  has  specified  a block  record  move  containing 
more  records  in  the  block  than  can  be  accommodated 
without  exceeding  program  limits.  No  records  will 
be  moved,  and  user  will  be  queried  concerning  dispo- 
ition  of  lirgt  record  as  shown  in  subsection  2.2.5 

N OR  NNNN  ILLECAL.  MINIM UM  IS  1,  MAXIMUM  NNN. 

User  has  ordered  a block  of  records  deleted  but 
the  ending  record  number  does  not  correspond  to  a 
record  number  on  the  file.  No  deletions  are  made, 
arid  user  will  be  queried  concerning  disposition  of 
first  record  as  shown  in  subsection  2.2.5. 

NNN  AND  NN  ILLEGAL  FC  R r L X'K  DELETE 

User  has  entered  a record  number  for  the  last 
record  in  the  block  which  is  not  greater  than  the 
number  of  the  beginning  record.  No  deletions  art' 
made,  and  user  will  be  queried  concerning  disposi- 
tion of  first  record  as  shown  in  subsection  2.2.5. 

N RECORDS  IN  BLOCK.  REMAINING  STORAGE  IN  DELETE 
BUFFER  INSUFFICIENT.  BLOCK  "DELETE  CANNOT  BE  MADE . 

User  has  ordered  a block  of  records  deleted.  The 
number  of  records  in  the  block  would  cause  program 
limits  to  be  exceeded.  The  block  will  not  be  delet- 
ed. user  is  then  queried  concerning  disposition 
of  first  record  in  block  as  shown  in  subsection  2.2.5. 

FIRST  NUMBER  GREATER  THAN  SECOND 

User  has  requested  to  see  a segment  of  the  new 
file,  but  the  record  number  of  the  last  record 
in  the  segment  is  smaller  than  the  number  of  the 
first  record.  User  instructions  for  viewing  a 
segment  are  displayed  and  user  is  again  asked  to 
respond. 

Nt;  and  NN  ARE  ILLEGAL.  NUMBER  MUST  BE  IN  RANGE  1 TO  N 

User  has  requested  to  see  records  whose  numbers 
are  not  included  in  the  number  range  of  records 
written  to  the  nev'  file. 
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ENTER  TWO  CHARACTER  STATION  CODE.  IF  YOU  DO  NOT  KNOW 
PROPER  CODE  ENTER  — NN—  YOU  WILL  HAVE  ANOTHER  CHOICE. 


This  message  will  be  displayed  if  a user  requests 
a remote  printer  whose  station  code  is  not  included 
in  the  printer  options  menu.  User  may  either  enter 
the  station  code  or  NN.  If  NN  entered,  the  printer 
options  menu  will  again  be  displayed. 
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SECTION  5.  CONCLUSION 


CRD80  was  developed  to  provide  a simple,  efficient  method  for 
correcting  or  updating  large  data  files.  Its  use  does  not 
require  the  caution  or  expertise  required  by  the  time-sharing 
text  editor  subsystem  or  the  use  of  batch  mode  processing 
requiring  card  punching  and  knowledge  of  record  and  control 
ctrds.  Consequently,  a nonprogrammer  analyst  can  quickly 
and  accurately  correct  or  update  a data  file.  It  is  impossi- 
ble to  destroy  the  original  input  file  inadvertently.  Since 
all  modifications  entered  by  the  user  are  displayed  for  his 
approval  or  rejection  and  he  is  afforded  a final  review  before 
deciding  on  file  disposition,  the  possibility  of  introducing 
errors  is  minimal.  The  simple  commands  are  quickly  assimilated 
by  the  average  user.  Usage  by  CCTC  and  SAGA  personnel  confirm 
the  value  of  CRD80  as  a highly  useful  program  for  modifying 
data  files  of  under  10,000  records. 
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1NTE6ER  A/O/AI/AN/ARECN/DRECN/CRECN/C/CN 

INTEGER  BUT1/BUT2/ISTAT 

LOGICAL  ISE0/1CHECK 

BATA  RE V/"CR080  VERSION  01-04-78"/ 

C • ••  TILE  ATTACHMENT  STATUS  RETURN  WORDS  STSTTEN  DEPENDENT  ••* 

DATA  SEN/ISTAT1/ I S T A T 2 /"«"/ 0400000000000/ 04 03 700000000 / 

DATA  I ST AT  3. I ST AT4/0000000004001 *0000000004003/ 

DATA  1 $ TATS  / I S T A T6/ 0000000004004 / 0000000004005 / 

DATA  I S TAT7 / 1 S T A T8  / 000  0 000004  0 3 3 / 00  000  00004  034 / 

DATA  ISTAT9/IS T A T 1 0/ 00000000040 3S« 0000000004036/ 

DATA  I SET/ 001 201 507 7021/ 

OATA  JSET/0012015013013/ 

DATA  KSET/001S01 200002 1 / 

DATA  LSET/0015077000021/ 

DATA  NS E T/ 001 501 207702 1/ 

DATA  HDR 1 / 

8"  1 2 3 4", 

8"  5 6 7 8"# 

8" 1234567890 12345678901 2345678901 234567890"/ 

8" 12345678901 2345678901 2345678901234567890"/ 

C 

C INITIALISE  VARIABLES 

C 

A»0 
AI»0 
A N«0 
CN-0 
D»0 
C-0 
NaO 
Nl-12 
N 2*1 3 
C 

C CLEAR  ST0RA6E  AREAS 

C 

DO  1 I «1 #200 
ARECNC I )»0 
CRECN(1)«0 
DRECNC 1 >»0 
1 CONTINUE 
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c •••  FPARAH  SYSTEM  DEPENDENT  FEATURE  ••• 

CALL  FPARAH  ( 1 .8A > 

CALL  FPARAH  (3.ISET) 

CALL  FPARAN  (7.6) 

C •••  FILE  CREATION  SYSTEM  OEPENOENT  FEATURE 

call  CREATE  (13* 300000. 0.IT1) 

CALL  CREATE  ( 1 A. 300000.0. 1 T 1 ) 

CALL  CREATE  (13,300000*0. IT1) 

WRITE  (06.90) 

WRITE  (06.91) 

WRITE  (06.97)  REV 
WRITE  (06.93) 

7 WRITE  (06.90 

READ  (03.93)  IFIL 
ENCODE  (CAIFIL.90)  IFIL. SEN 
ENCODE  (CATFILE.97:  IFIL 
WRITE  (06.116)  FEW 

C FILE  ATTFCHNENI  SYSTEM  DEPENDENT  FEATURE  • •• 

CALL  ATTACH  ( 08 . A T F I L . 1 .0 . 1 ST  A T .BUF 1 ) 

IF  (ISTAT.ES. 1ST  AT ' .OR. I STAT.EO.I STAT7)  00  TO  A 
I STAT»FLD(0.17.I STAT) 

IF  (ISTAT.ES.  ISTAT3)  WRITE  (06.98) 

IF  ( ISTAT.ES. ISTATO  WRITE  (06.99) 

IF  (ISTAT.ES. ISTAT3)  WHITE  (06.100) 

IF  (ISTAT.ES. ISTAI6)  WRITE  (06.101) 

IF  (ISTAT.ES. ISTAT ()  WHITE  (06.107) 

IF  (ISTAT.ES. ISTAT'))  WRITE  (06.103) 

IF  (ISTAT.ES. ISTAW)  WRITE  (06.10A) 

IF  (ISTAT .ES. ISTAT10)  WRITE  (06.103) 

WRITE  (06.106)  ISTAT 
3 WRITE  (06.107) 

READ  ( 03. 1 1 A ) REPLY 

IF  (REPLY. ES. "YES". OR.REPLY. ED. "I")  00  TO  88 
IF  (REPLY.ES. "YES". OR. REPLY. ES."Y")  00  TO  86 
IF  (REPLY. ES. "NO". OR. REPLY. E8.hN">  00  TO  7 
IF  (REPLY. ES. "NO". OR. REPLY. £8. "N")  GO  TO  7 
WRITE  (06.196) 

00  TO  3 

A WRITE  (06.108)  IFIL 

WRITE  (06.109) 

WRITE  (06.110) 

WRITE  (06.111) 

WRI1E  (06.90) 

WRITE  (06.117) 

C ASK  USER  IF  I DENT  SESUENCE  MONITORING  DESIRED 

C 

3 WRITE  (06.113) 

READ  (03.11A)  REPLY 

IF  (REPLY.ES. "YES". OR. REPLY. E8."Y")  1SEB-.TRUE. 

~ IF  (REPLY.ES. "YES". OR. REPLY. EO."Y">  ISESw.TRUE. 
IF  (REPLY.ES. "NO". OR. REPLY. E8."N">  ISESw. FALSE. 
IF  (REPLY.ES. "NO". OR. REPLY. ES."N")  ISESw. FALSE. 
IF  (REPLY.ES. "YES". OR. REPLY. E8."Y")  GO  TO  6 
IF  (REPLY. £8. "YES". OR. REPLY. E8."Y">  GO  TO  6 
IF  (REPLY.ES. "NO". OR. REPLY. E8."N">  60  TO  6 
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IF  (REPLY. E8. "NO". OR. REPLY. EQ."N")  GO  TO  6 
GO  TO  5 

6 CONTINUE 

c 

C READ  OLD  RECORD  TILE  ON  FILE  8 

C 

DO  7 1*1,10000 

READ  (06, 115, END-8)  INCARD 

7 CONTINUE 
WRITE  (06,116) 

PAUSE  "TRANSMIT  A SPACE  TO  CONTINUE" 

GO  TO  86 
6 CONTINUE 

1MAX-I-1 

WRITE  (06,118)  FFW 
WRITE  (06,117)  IMAX 

PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 

REWIND  8 
I POS-1 

CALL  FPARAH  (3, 1 SET  > 

9 CONTINUE 

CALL  F PAR AM  (3,ISET>  • 

WRITE  (06,118)  FFW 
WRITE  (06,120) 

GO  TO  11 

10  WRITE  (06,118)  FFW 
C 

C DISPLAY  USER  COMMAND  MENU 

C 

WRITE  (06,119) 

11  CONTINUE 

READ  (05,121)  L TR,NUM 
I F (LTR.E8."T")  GO  TO  88 
1 F (LTR.EQ.”T">  60  TO  88 
IF  (LTR.EO."S".OR.LTR.EO."S")  60  TO  43 
IF  (L  TR.E8. "E")  GO  TO  47 
IF  (LTR.EO."E">  60  TO  47 

IF  ((LTR. E0."R"). AND. (NUM.GE.1. AND. NUM.LE. 9999))  GO  TO  12 
IF  ((LTR. E0."R”). AND. (NUM.GE.1. AND. NUM.LE. 9999))  GO  TO  12 
IF  ((LTR. EO. "A”). AND. (NUM.6E.0. AND. NUM.LE. 9999) > GO  TO  27 
IF  ((LTR. EO. "A"). AND. (NUM.GE.O. AND. NUM.LE. 9999))  GO  TO  27 
IF  ( (LTR. EO."C"> .AND. (NUM.GE.1 .AND. NUM.LE. 9999) ) GO  TO  12 
IF  ((LTR. EQ."C">. AND. (NUM.GE.1. AND. NUM.LE. 9999))  GO  TO  12 
IF  ((LTR. E8."D">. AND. (NUM.6E.1. AND. NUM.LE. 9999))  60  TO  12 
IF  ((LTR. E0."0"). AND. (NUM.6E.1. AND. NUM.LE. 9999))  60  TO  12 
GO  TO  9 
C 

C READ  A RECORD  ON  OL 0 FILE 

C 

12  CONTINUE 

IF  ((NUM.LT.1).0R«( NUN. G T • I MAX ) ) WRITE  (06,118)  FFW 
IF  ((NUM.LT.1).0R.( NUH.GT. IMAX) ) WRITE  (06,122)  NUN, IMAX 
IF  ((NUM.GE.1). AND. ( NUM.L E . IMAX > > GO  TO  13 
PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 

GO  TO  10 
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13  CONTINUE 

If  (NUN. E8. IPOS)  GO  TO  17 
If  (NUN. 61. IPOS)  GO  TO  IE 
REW1N0  8 
1R»NUN 
N • 1 
1 PO  S ■ 1 
GO  TO  15 
U CONTINUE 
N * 1 

i »*Nun-iP0s*i 

15  00  16  I BN, 1 R 

READ  (08,115)  INCARO 

16  CONTINUE 

1 POSMPOSM I R-N ) ♦ 1 
GO  TO  18 

17  REAO  (08,115)  It-CARO 
IPOSalPOStl 

18  CONTINUE 

If  UTR.EG.-C")  GO  TO  20 
I f (LTR.E8."C")  GO  TO  20 

19  WRITE  (06,118)  ffw 
WRITE  (06,123)  HDR1 
WRITE  ( 06, 124)  INCARO 

C 

C ASK  USER  WHAT  IS  TO  dE  DONE  WITH  RECORD  SHOWN 

C 

WRITE  (06,125)  NUN 
REAO  (05,114)  REPLY 

If  (REPLY. E8.MD0"V.OR.A£PLY.E8.V'D8M)  60  TO  37 
If  (REPLY. E8."C". OR. Af PLY. E8."C">  GO  TO  20 
If  (REPLY. E8."D". OR. REPLY. £8."*")  GO  TO  25 
If  (REPLY. E8."N“. OR. REP. Y.E8."N")  60  TO  33 
If  (REPLY.E8.-R-.0R.R  «*LY.E8."R">  GO  TO  10 
If  (R£PLY.E8.n0M.OR.R€PLV.£8.a*0M)  60  TO  35 
GO  TO  18 
C 

C CHANGE  RECORD 

C 

20  CONTINUE 

WRITE  (06,118)  f F M 
WRITE  (06,126)  NUN 
CALL  F PAR AN  (3,JSET> 

WRITE  (06,123)  H0R1 
WRITE  (06,124)  INCARO 
CALL  fPARAN  (3,KSET> 

REAO  (05,128)  OT  CARO 
WRITE  (06,124)  OTCARO 
CALL  FPARAN  ( 3, 1 SET  > 

WRITE  (06,127) 

REAO  (05,114)  REPLY 

If  (REPLY. E8. "Y". OR. Rf PLY. Eu."Y“)  GO  TO  21 
If  (REPLY. E8.“N". OR. REPLY. £8. "N")  GO  TO  23 
GO  TO  20 

21  CONTINUE 
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ENCODE  (INCARD. 128)  OTCARO 
C «C  ♦ 1 

If  (C.6T.200)  UNITE  (06.129) 

If  (C. 61. 200)  PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 

I f (C.6T.200)  60  TO  22 
CRECN(C) *num 

C ENTER  CHAN6E0  RECORD  IN  CMAN6E  OUT  BUffER 

C 

ENCODE  (CREC  (0.130)  INCARD 
60  TO  10 

22  C «200 

60  TO  10 
C 

C HOVE  A CHANGED  RECORD 

C 

23  CONTINUE 

URITE  (06.118)  ffU 
UNITE  (06.131)  NUM 
READ  (05.140)  NUM1 

If  ((NUHl.LT.0>.0R.(NUM1.GT.INAX>)  URITE  (06.118)  ffU 
If  ((NUMl.LT.O).OR. (NUM1.6T.IMAX)>  URITE  (06.122)  NUM1.IHAX 
If ((NUM1.LT.0>.0A.(NUN1.6T.1HAX))PAUSE  "TRANSMIT  SPACE  TO  RESUME 
If  ((NUHI.LT.O).OR. (NUN1 .6T.1NAX) ) 60  TO  23 
If  ((A.6E.200).0R.(0.6E.200>>  60  TO  24 
A » A*  1 
0*0*1 

D RECN( D >*NUM 

ENCOOE  (OREC  (0).130)  INCARD 
ARECN( A)»NUH1 

ENCOOE  (AREC  (A). 115)  OTCARO 
GO  TO  10 

24  CONTINUE 
URITE  (06.118)  ffU 
URITE  (06.141) 

URITE  (06.132) 

READ  (05.114)  REPLY 

If  (REPLY. EO."U“. OR. REPLY. E8."U")  60  TO  10 
If  (REPLY. E«."C". OR. REPLY. EB."C")  60  TO  21 
GO  TO  24 
C 

C DELETE  RECORD 

C 

25  CONTINUE 
0 »D*  1 

If  (0.61.200)  URITE  (06.133) 

If  (D.GT.200)  PAUSE  "TRANSMIT  SPACE  TO  RESUME" 

If  (0.GT.200)  GO  TO  26 

ORECN(O) *NUM 

ENCODE  (OREC  (D).130)  INCARD 
GO  TO  10 

26  D>200 
GO  TO  10 

C 

C ADD  A NEU  RECORD 

C 
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2 7 CONTINUE 

If  ((NUM.LT.O>.OR.(NUN.GT.INAX>>  WRITE  (06*110)  fFW 
If  ( (NUM.LT .0) .OR. (NUH.6T.INAX) > WRITE  (06*122)  NUN*IHAX 
I f ( (NUN.L 1.0) .OR. (NUM.6T. 1HAX) ) PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 
If  ((NUM.LT.O).QR.(NUM.GT.INAX))  60  TO  10 
WRITE  (06*118)  FEW 
C 

C ADD  BLOCK 

C 

WHITE  (06*134)  NUN*  NUM 
READ  (03*140)  NUM1 
WRITE  (06*118)  FFW 

IF  ( (NUN1 .LT.1) .OR. (NUNl .GT. 7) > GO  TO  10 
WRITE  (06/133)  NUN 
WRITE  (06/136)  NUM1 
CALL  FPARAH  (3/MSET) 

WRITE  (06*123)  NOR  1 
A I *0 

28  A I » A I ♦ 1 

IF  (AI.GT.NUN1)  GO  TO  29 
READ  (03*113)  AIREC(Al) 

GO  TO  28 

29  CONTINUE 

WRITE  (06*118)  FFW 
WRITE  (06*123)  H OR  1 
DO  30  MX*1*NUM1 
WRITE  (06*124)  AIAEC(HX) 

30  CONTINUE 

WRITE  (06*137)  NUN1*NUN 
READ  (03*114)  REPLY 

IF  (REPLY. EQ."Y". OR. REPLY. E«,"Y*>  60  TO  31 
GO  TO  10 

31  CONTINUE 

IF  ((A*NUN1 ).GT.200)  WRITE  (06*138) 

IF  ((A*NUH1 >.GT.200)  PAUSE  "TRANSNI T A SPACE  TO  RESUNE" 

IF  ( (A*NUM1 I.6T.200)  GO  TO  10 

DO  32  NX  ■ 1 / NUM 1 

A*A*1 

A RE  CN ( A) “NUN 

ENCODE  (AREC  (A)*113)  AIREC(MX) 

32  CONTINUE 
GO  TO  10 

C 

C MOVE  RECORD 

C 

33  CONTINUE 

IF  C(A.GE.200).0R.(D.GE.200))  GO  TO  34 
A*A*1 
0*0*1 
C 

c FIRST  delete 

c 

ORECNI D)*NUM 

ENCODE  (DREC  (D)/130)  INCARD 
C 


4 


I 
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C NEXT  OBTAIN  NEW  LOCATION 

C 

WRITE  (06.159) 

READ  <05. UO)  NUN 
ARECNC A)«NUN 

ENCODE  (AREC  (A). 115)  INCARD 
GO  TO  10 

34  CONTINUE 
WRITE  (06.141) 

PAUSE  "TRANSNIT  A SPACE  TO  RESUNE* 

GO  TO  10 
C 

C HOVE  CONSECUTIVE  BLOCK  Of  RECORD. 

C 

35  CONTINUE 

WRITE  (06.118)  FEW 
WRITE  (06.142)  NUN 
READ  (05.140)  NUN1.NUN2 

IF  (NUN1.LE .NUN)  WRITE  (06.143)  NUN1 .N UN2 . NUN  1 . NUN 
IF  (NUN1.LE.NUN)  PAUSE  "TRANSNIT  A SPACE  TO  RESUNE" 

IF  (NUN1 ,LE .NUN)  GO  TO  19 

IF  ( (NUN2.LT .0) .OR. (NUN2.GT. INAX) ) WRITE  (06.144)  NUN2.INAX 

I F ( (NUN2.L T .0) .OR. (NUN2.GT. 1NAX ) > PAUSE  "TRANSNII  SPACE  TO  RESUNE" 

IF  ( (NUN2.L T.O) .OR. (NUN2.GT.INAX) ) GO  TO  19 

IF  ((NUN1.LT. 2). OR. (NUN1.6T. INAX))  WRITE  (06.145)  NUN1 

I F ( (NUN1 .L T .2) .OR. (NUN  1 .GT. INAX ) > PAUSE  "TRANSNIT  SPACE  TO  RESUNE" 

IF  < (NUN1 .L T.2) .OR. (NUN1 .GT . INAX) > GO  TO  19 

MNUN«NUN1-NUN*1 

H N A • A ♦ NNUN 

HNO*D*NNUN 

IF  ( (NNA.GI .200) .OR. (NNO.GT .200) > WRITE  (06.146)  NNUN 

I F ( (NNA.GT.200).0R. (NND.GT.200) > PAUSE  "TRANSNIT  SPACE  TO  RESUNE" 

IF  ((NNA.GT.200).OR.(NND.GT.200>)  60  TO  19 

DO  36  NXal.HNUN 

IF  (NX.GT.1 > NUN«NUN*1 

IF  (NX.GT.1)  READ  (08.115)  INCARD 

A*A*t 

D*D*1 

ORECN(O) “NUN 

ENCODE  (OREC  <D).130)  INCARD 
ARECN(A) ■ NUH2 

ENCODE  (AREC  (A). 115)  INCARD 

36  CONTINUE 
IP0SaIP0$tNNUN-1 
GO  TO  10 

C 

C DELETE  BLOCK 

C 

37  CONTINUE 

WRITE  (06.118)  FFW 
WRITE  (06.147)  NUN 
READ  (05.140)  NUN  1 

IF  (NUN1 .LE .NUN)  WRITE  (06.148)  NUN. NU  M 1 

IF  (NUN1 .LE .NUN)  PAUSE  "TRANSNIT  A SPACE  TO  RESUNE" 

IF  (NUN 1.LE.NUN)  60  TO  19 
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If  ( (NUM.LT .1 ) .OR. (NUM1.CT. IMAX) ) WRITE  (06,149)  NUM, NUH 1 , I N AX 

If ((NUM.LT. 1). OR. (NUM1.GT.IHAX))  PAUSE  "TRANSMIT  SPACE  TO  RESUME" 

IF  ( (NVH.LT.1) .OR.(NUM1 .GT. IMAX) ) GO  TO  19 

MNUM*NUH1-^NUM*1 

HND*0*HNUM 

If  (HNO.GT.200)  WRITE  (06,150)  MNUM 
If  (MNO.GT.200)  PAUSE  "TRANSMIT  A SPACE  TO  RESUME” 

If  (MNO.GT.200)  GO  TO  19 
00  38  MX ■ 1 , MNUM 

If  (MX.6T.1)  READ  (08,115)  INCARO 

38  CONTINUE 

I POS«IPOS*MNUM-1 
WRITE  (06,124)  INCARO 
WRITE  (06,151)  NUMl , NUH 
READ  (05,114)  REPLY 

If  (REPLY. EO."Y". OR. REPLY. E8."T")  GO  TO  39 

WRITE  (06,152)  NUN, NUM 1 

PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 

GO  TO  10 

39  CONTINUE 
N UM*NUM- 1 

If  (NUH.LT.1)  GO  TO  41 
REW1N0  8 
00  40  MX* 1 , NUM 
READ  (08,115)  INCARO 

40  CONTINUE 

41  CONTINUE 
N UH*NUM  + 1 
I POS*NUH 

00  42  MX-NUM,NUM1 
D*DO 

0 RECN( 0) *MX 
R E AO  (08,115)  INCARO 
ENCODE  (DREC  (0),130>  INCARO 
IPOS-IPOSAl 

42  CONTINUE 
GO  TO  10 

C 

C STATUS  REPORT 

C 

43  CONTINUE 

WRITE  (06,118)  ffW 
If  (A.LT.1)  WRITE  (06,153) 

If  (A.LT.1)  GO  TO  44 
WRITE  (06,154)  ARECN( A) ,A 
WRITE  (06,124)  AREC(A) 

44  CONTINUE 

If  (C.LT.1)  WRITE  (06,155) 

I f (C.LT.1)  60  TO  45 
WRITE  (06,156)  CRECN(C),C 
WRITE  (06,124)  CREC(C) 

45  CONTINUE 

If  (0.LT.1 ) WRITE  (06,157) 

I f (0.LT.1  ) GO  TO  46 
WRITE  (06,158)  DRECN(D),D 
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WRITE  (06.124)  DREC(D) 

46  CONTINUE 
WRITE  (06.159) 

PAUSE  “TRANSMIT  A SPACE  TO  RESUME" 

60  TO  10 
C EXECUTE 

47  CONTINUE 

REWIND  8 | 

C 

C R E AO  OLD  INPUT  PILE 

INCTA-0 
NRNEW«0 

48  CONTINUE 

READ  (08.1 15.END«55>  INCARO 

INCTRMNCTR  + 1 

IF  (MOD(INCTR.SO).EB.O)  WRITE  (06.161)  INCTR 
C 

C CHECK  IF  A RECORD  IS  TO  BE  ADDED 

C 

IF  (A.LT.1)  60  TO  50 
00  49  K«1.A 

IF  (ARECN(K).NE.(INCTR-D)  60  TO  49 
WRITE  (13.115)  AREC(K) 

WRITE  (14.115)  AREC(K) 

N RNEWa  NRNEW+ 1 

49  {ONTINUE 
C 

C CHECK  IF  RECORD  IS  TO  BE  DELETED 

t | 

50  CONTINUE 

IF  (D.LT.1)  60  TO  52 
DO  51  K»1.D 

IF  (DRECN(K).EO. INCTR)  60  TO  48 

51  CONTINUE 
C 

C CHECK  IF  RECORD  IS  TO  BE  CHAN6ED 

C 

52  CONTINUE 

IF  (C.LT.1)  60  TO  54 
DO  53  K«1.C 

IF  (CRECN(K).NE.INCTR)  60  TO  53 
WRITE  (13.115)  CREC(K) 

WRITE  (14.115)  CREC(K) 

NRNEWaNRNEW+1 
60  TO  48 

53  CONTINUE 

54  CONTINUE 

WRITE  (13.115)  INCARD 
WRITE  (14.115)  INCARD 
NRNEWaNRNEW+1 
60  TO  48 

55  CONTINUE 
NROLD-INCTR 

WRITE  (06.118)  FFW 
REWIND  8 


i 
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WRITE  (06,162)  MROLO 

PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 

C 

C CHECK  if  THERE  ARE  MORE  ADD  RECORDS  TOR  NEW  TILE 

IF  (A.IT.1)  £0  TO  57 
DO  56  K»1,A 

IF  (ARECN(K).CT.NROLD)  CO  TO  56 
WRITE  (13,M5)  AREC(K) 

WRITE  (14,115)  AREC(K) 

NRNEW»NRNEW*1 

56  CONTINUE 

57  CONTINUE 
ENDF1LE  13 
REWIND  13 
ENDfILE  14 
REWIND  14 

C 

WRITE  (06,163)  N^NEW 

PAUSE  "TRAN SPIT  A SPACE  TO  RESUME" 

WRITE  (06,118)  TTW 
1 NCTR»0 

CALL  DAT1M  (DATE, TIME) 

WRITE  (13,164)  DATE, TIME 
WRITE  (13,165)  REV 
WRITE  (13,166)  I r I L 
WRITE  (06,167) 

READ  (OS, 191)  CATF1LE) 

WRITE  (13,168)  CATFILEX 
WRITE  (13,169) 

58  READ  (14, 115, END-61)  INCARD 

IF  ( I $ E 0 ) DECODE  (INCARD, 160)  I C ARO,JC  ARD 
I NCTR- INC  TR  + 1 

IF  (HOD(lNCTR,50>  .E8.0)  WRITE  (06,161)  INCTR 

NERRa"  " 

IF  (INCTR. LT. 2)  GO  TO  60 
IF  ( I S Ed ) GO  TO  59 
£0  TO  60 
C 

C CHECK  RECORD  1 DEN T SEOUENCE  IF  USER  HAS  SO  REOUESTED 

C 

59  CONTINUE 

C KOHPCH  SYSTEM  DEPENDENT  FEATURE  • •• 

L«KONPCH( ICARD,0,LC4RD,0,10) 

NERRa" 

IF  (L.EO.O)  NERR -”DUPL " 

IF  (L.EQ.1)  NE  RR-”S  E 0 " 

60  CONTINUE 

WRITE  (13,170)  INCTR, INCARD, INCTR, NERR 
DECODE  (INCARD, 160)  LC  ARD,MC AR  D 
GO  TO  58 

61  CONTINUE 
REWIND  14 

c 

INCTR-0 

WRITE  (06,118)  FFW 
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C 

C ASK  IF  DISPLAY  OF  RECORDS  ON  NEW  FILE  IS  DESIREO 

C 

WRITE  (06/171) 

62  READ  (05/114)  REPLY 

IF  (REPLY. EO. "YES". OR. REPLY. EO."Y">  GO  TO  6J 
IF  (REPLY. EQ. "YES". OR. REPLY. EO."Y">  GO  TO  65 

IF  (REPLY. EQ. "NO". OR. REPLY. E9."N")  GO  TO  75  | 

IF  (REPLY. EO. "NO". OR. REPLY. EG. "N")  GO  TO  75 
WRITE  (06/196) 

GO  TO  62 
65  1P0S-1 

64  WRITE  (06/172)  FFW 

65  WRITE  (06/173) 

READ  (05/140)  NUN/NUN2 

IF  ( (NUN.EQ.O) .AND. (NUN2.EQ.0) ) GO  TO  75 
IF  (NUH2.LT. NUN)  WRITE  (06/174)  NUH/NUH2 
IF  (NUH2.LT. NUN)  PAUSE  "TRANSHIT  A SPACE  TO  RESUHE" 

IF  (NUH2.LT. NUH)  60  TO  64 

IF  ( (NUn.LT.t) .0R.(NUH2.GT.NRNEW) ) GO  TO  66 
GO  TO  67 

66  WRITE  (06/175)  NUH/NUH2/NRNEW 
GO  TO  65 

67  CONTINUE 

IF  (NUN. EO.  IPOS)  GO  TO  71 
IF  (NUH. GT. IPOS)  GO  TO  69 
1 BK* IPOS-NUH 
DO  68  I*1/IBK 
BACKSPACE  14 
I P0S*1P0S-1 

IF  (NUH. EQ. IPOS)  GO  TO  71 

68  CONTINUE 

69  CONTINUE 
N * 1 

I R«NUH-IPOS 

DO  70  I*N/IR 

READ  (14/115)  INCARD 

70  CONTINUE 
IP0S*IP0S*(IR-N)4l 

71  WRITE  (06/118)  FFW 
CALL  FPARAH  (3/ J SET) 

WRITE  (06/123)  H DR  1 

NX*NUH2-NUH+1 

NR*NX 

IF  (NR.GT.10)  NR* 1 0 

DO  72  1*1 /NR 

READ  (14/115)  INCARD 

WRITE  (06/124)  INCARO 

IP0$*IP0$*1 

NUH*NUH*1 

72  CONTINUE 

PAUSE  "TRANSHIT  A SPACE  TO  RESUHE" 

IF  (NUH.LE.NUN2)  GO  TO  71 
WRITE  (06/118)  FFW 
GO  TO  65 


A 
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75  CONTINUE 

WRITE  (06/1 18)  FEW 
INCTRaO 
I 8KMP0S-1 

IF  (IBK.E8.0)  60  TO  75 
00  74  I«1,I0K 
BACKSPACE  14 

74  CONTINUE 

75  CONTINUE 
C 

C FNEOIA  SYSTEM  CEPENtENT  f f A TORE  • •• 

CALL  FNEOIA  (14,2) 

CALL  FNEOIA  (15,2) 

C 

C READ  NEW  ASCII  FILE  14  ANO  WAITE  NEW  BCO  FILE  15 

C 

76  READ  ( 14,1 1 5,ENO«78)  OTCARD 
1NCTR»INCTR*1 

IF  (1NCTR.6T.NRNEW)  GO  TO  77 
WRITE  (15,115)  OTCARD 

IF  (WOD(1NCTR,100).EG.O)  WRITE  (06,176)  1NCTR 
GO  TO  76 

77  CONTIMUt 

WRITE  (06,177)  NRNEW 

78  CONTINUE 

WRITE  (06,118)  FFW 

WRITE  (06,178)  INCTR 

PAUSE  “TRANSNIT  A SPACE  TO  RE$UNE“ 

ENOFILE  13 
REWINO  13 
REWIND  14 

WRITE  (06,118)  FFW 
ENOFILE  15 
REWINO  15 
WRITE  (06,179) 

C 

C ASK  USER  IF  PRINTED  COPY  OF  NEW  FILE  IS  WANTED 

c 

79  READ  (05,114)  REPLY 

IF  (REPLY.£a.“Y£S“.OR.REPLY.EO.“Y">  GO  TO  80 
IF  (REPLY. Ea  , "YES". OR. REPLY. EO."Y")  GO  TO  80 
IF  (REPLY. Ea. "NO". OR. REPLY. E8."N")  GO  TO  82 
IF  (REPLY. E). "NO". OR. REPLY. EQ."N">  GO  TO  82 
WRITE  (06,196) 

GO  TO  79 

80  CONTINUE 

WRITE  (06,118)  FFW 
C 

C ASK  USER  WHERE  COPYIS  TO  BE  PRINTED 

C 

WRITE  (06,180) 

REAO  (05,140)  NUN 

IF  ((NUN.LT.1).0R.(NUN.6T.4>)  GO  TO  80 
IF  (NUN.Ea.4)  WRITE  (06,181) 

IF  (NUN.E0.4)  REAO  (05,114)  REPLY 
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C 

81 


C 

C 

C 


82 


83 


84 


85 


86 


If  ((NUN.EQ.47.ANO.(REPLY.Ea."NN".OA.R£PLY.Ea."NN")7  GO  (0  80 
If  (NUN. EG. 4)  ENCODE  (TERM, 182)  REPLY 
If  (NUH.E0.4)  GO  TO  81 
If  (NUN.Ea.l)  TERM-AT" 

If  (NUM.Ea.27  TERN«"BH" 

If  (NUN.Ea.  1 .0R.NUM.EG.2  ) ENCODE  (TERH1/182)  TERM 
If  (NUN.Ea. 37  TERN»"Z2" 

If  (NUN.Ea. 37  ENCODE  (TERM1/162)  TERN 
CALL  f NED  I A (13*0! 

CALLSS  SYSTEM  DEPENDENT  fEATURE  ••• 

CALL  CALLSS  (TERM17 
WRITE  (06/183) 

PAUSE  "TRANSMIT  A SPACE  TO  RESUME” 

CALL  fPARAM  (3/ISET) 

ASK  USER  WHAT  FILE  DISPOSITION  DESIRED 

WRITE  (06/184)  FfW 
READ  (05/185)  REPLY 

If  (REPLY. EO.”OUIT". OR. REPLY. E8. ”8")  GO  TO  87 
If  (REPLY.E8."8UIT".0R.REPLY.E8."0”7  GO  TO  87 
IF  (REPLY. E8."RESA". OR. REPLY. Ea.“R")  GO  TO  83 
If  (REPLY. E8."RESA". OR. REPLY. EG. "R"7  GO  TO  83 
If  (REPLY. EO. "SAVE". OR. REPLY. EG. “S")  GO  TO  84 
If  (REPLY. EO. "SAVE". OR. REPLY. EG. "S")  GO  TO  84 
WRITE  (06/186) 

PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 

GO  TO  82 

ENCODE  (CAT1/187)  CATflLE 
CALL  CALLSS  ("REMO  OBR") 

CALL  CALLSS  ( C AT  1 7 

WRITE  (06/1887  CATflLE 

PAUSE  "TRANSMIT  A SPACE  TO  RESUME" 

GO  TO  87 
CONTINUE 

WRITE  (06/1897  CATfILEX 
READ  (05/114)  REPLY 

If  (REPLY. EG. "Y". OR. REPLY. EG. "Y")  GO  TO  86 
If  (REPLY. £8. "N". OR. REPLY. EG. "N")  GO  TO  8S 
GO  TO  84 
CONTINUE 
WRITE  (06/190) 

READ  (05/191)  CATfILEX 
CONTINUE 

ENCODE  ( C AT  1 / 1 92  > CATfILEX 
CALL  CALLSS  ( C AT  1 ) 

WRITE  (06/193)  CATFILEX 

PAUSE  "TRANSMIT  A SPACE  TO  RESUME” 

REMOVE  FILES 

C ONTINUE 

CALL  CALLSS  ("REMO  08#"> 

CALL  CALLSS  ("REMO  13*") 

CALL  CALLSS  ("RENO  14#") 
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88 


89 


L 


90 

91 

92 

93 

94 


95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 


CALI  C At  L S 5 ("REMO  15*-) 
WRI1E  ( 06  # 1 V 4 ) 

GO  TO  89 
CONTINUE 

CALL  CALLSS  (“RENO  138”) 
CALL  CALLSS  ("RENO  14»"> 
CALL  CALLSS  (“REMO  15R”) 
CALL  CALLSS  (“RENO  08»“> 
w H j r k.  i 06#  19  5) 
continue 
s top 


FORMAT  <//) 

FORMAT  I 54H  THIS  PROGRAM  AC  OS# DEL E TE S#C MANGE S 80  CHARACTER  RECORDS) 
FORMAT  < A22  ) 

FORMAT  ( 3h  > 

FORMAT  (53HENTER  I H E CFT/FILE  SIRING  OF  THE  RECORO  FILE  TOO  WISM#1 


80  H TO  MODIFY) 

format  (A  36  ) 


107 


FORMAT  <A36#A1) 

FORMAT  ( A30 ) 

FORMAT  (26HNAME  NOT  IN  MASTER  CATALOG) 

FORMAT  (1 7HPERM1 SS ION  DENIED) 

FORMAT  (21HFILE  BUST.  IRY  LATER.) 

FORMAT  (30H1NCOHREC I CAT/FILE  DESCRIPTION) 

(24HCAT/FILE  SECURITY  LOCKED) 

(34HILLEGAL  CHARACTER  IN  CAT/FILE  NAME) 

(29HILLEGAL  CAI/FILE  LIST  REQUEST) 

FORMAT  (11HAFT  IS  FULL) 

FORMAT  (51HFILE  ATTACHMENT  UNSUCCESSFUL.  REASON  UNKNOWN  IF  N0T#/#3 
84HSTATED  ABOVE.  1 S I A T RETURNED*  #012) 

FORMAT  (S6HD0  YOU  WISH  TO  TERMINATE  CRD80?  PLEASE  ANSWER  YES  OR  N 


F ORMAT 
F ORMAT 
F ORMAT 


80) 


108 

109 

110 
111 
112 


113 


FORMAT  (39h CAT/FILE  STRING  Of  YOUR  INPUT  FILE  IS  #A36> 

FORMAT  (4BHREC0RD  NUMBERS  MUST  BE  WITHIN  RANGE  OF  1 TO  9999) 

TORMAT  ( S4H  THE  SE  NUMBERS  ARE  THE  POSITION  OR  LOCATION  ON  THE  FILE) 
FORMAT  (49HD0  NOT  USE  MORE  THAN  4 DIGITS  FOR  A RECORD  NUMBER) 
FORMAT  (S4HREC0RD  IDENT  MEANS  THE  FIRST  10  CHARACTERS  ON  A RECORD# 
8/#52HWHEN  THEY  ARE  USED  TO  INDICATE  A SEQUENTIAL  LOCATION) 

FORMAT  (SSHOO  YOU  WISH  (ROM)  TO  MONITOR  THE  IDENT  SEQUENCE?  ENTER 
i#/#6lH — YES— IF  YOUR  FILE  CONTAINS  R1  AND  YOU  WISH  TO  MONITOR  THE 
8 #/#60H  IDENT  SEQUENCE. 

8 #/ »55H  — NO IF  THIS  FILE  DOES  NOT  HAVE  RECORD  IDENT  OR  IF 


./#  5 


114 

115 

116 

117 

118 

119 

120 


85  H 

F ORMAT 


YOU  WISH  TO  I GF  ORE  ANY  RECORD  IDENTS  IT  MAI  HAVE) 

(A6> 

FORMAT  (ABO) 

FORMAT  (44HFILE  EXCEEDS  9999  RECORDS.  CROBO  TERMINATING) 

FORMAT  (24H0LD  INPUT  FILE  CONTAINS  #I4#8H  RECORDS) 

FORMAT  (All 

FORMAT  (30M  NEXT  R # A#C # D# E # S# T COMMAND??) 

FORMAT  ( 56HENT ER  ONE  OF  FOLLOWING  RESPONSES  AS  LE T T E R# SP AC E #NUMBE R 
# / #6 1 H ENTER  ONE  THEN  ENTER  ONE  THAN  ENTER 

# / #6 1 H CHARACTER  SPACE  OR  COMMA  ONE  NUMBER 

#/ #6 1 H R READ  A RECORD....  NUMBER  OF  A RECORD  ON  OLD 
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121 

122 

12  J 

124 

125 


126 

127 


128 

129 

ISO 

131 


132 


133 

134 


133 

136 

137 

138 

139 


140 


17  ILE./.61H  A ADO 

8 FILE./.61H 
10 «0  1S./.61H 
CUMBER  0./.61H 

I ALL  0LD./.61H  C 

8 OLD  F1LE./.61H 

SO  CHANGE  . / #6 1H  » 

SON  OLO  F1LC./.61H  E .... 

8 ./. 61H 

8 ./.61H  S .. 

8 ./.61H  T . 

8-FILE  UNCHANGED) 


A RECORD....  NUMBER  OF  A RECORD  ON  OLD 
AFTER  WHICH  THIS  NEW  REC 
TO  BE  INSERTED.  ENTER  N 
IF  RECORD  WILL  PRECEDE 
CHANGE  A RECORD..  NUMBER  OF  A RECORD  ON 
WHICH  TOU  MAT  WISH  T 
DELETE  A RECORD..  NUMBER  OF  A RECORD 
END  OF  MV  INPUT..  ENTER  NUMBER  0 
EKECUTE  NOW 

..  STATUS  REPORT....  ENTER  NUMBER  0 
...  TERMINATE  CRD80..  ENTER  NUMBER  9- 


FORMAT  (V) 

FORMAT  (1H  .15.35H  IS  AN  ILLEGAL  RECORO  NUMBER. MAX  IS.14.10H  TRT  A 
SGAIN) 

FORMAT  (2<1H  .2A40./)) 

FORMAT  (1H  9 A80> 


FORMAT  (43HWHAT*S  TO  BE  DONE  WITH  THIS  RE C ORD - -NUMBE R .14. Sh  --??, 
8/.42HENTER  ONLY  ONE  OF  THE  FOLLOWING  C H AR AC  TER S . / . 1 2HC--CHANGE  IT. 

S/.35H0--DELETE  IT SINGLE  RECORD  DELE T E. / . 49H0B--0EL E T E CONSECUTI 

8VE  BLOCK  OF  RECOROS  WITH  THIS./.46H  BEING  FIRST  RECORD  OF  THE  B 

SLOCK  OF  RECORDS. /.31HM  — MOVE  IT SINGLE  RECORD  MOVE . / .6 1 HB  — BL OC K 

8 MOVE  OF  MORE  THAN  ONE  CONSECUTIVE  RECORO  WITH  THIS  ./.6lH  BEIN 
SG  The  BEGINNING  RECORO  OF  THE  BLOCK  OF  RECORDS  ./.23HR--RET 

SURN  IT  UNCHANGED  ) 

FORMAT  (16HWHEN  OLD  RECORD  .M.IOh  IS  SHOWN  ./.33HENTER  THE  COMPLE 
STE  CHANGED  RECORD) 

FORMAT  (S4H1S  ABOVE  RECORD  ENTRY  CORRECT?  ENTER  ONLY  ONE  LETTER  . 

8/.19HN NO.  NOT  CORRECT. /.16HY YES.  CORRE C T . / . S3HM RECORD  ENT 

8RY  IS  CORRECT  AND  NOW  I WISH  TO  MOVE  IT) 

FORMAT  ( ABO  > 

FORMAT  C32HCHANGE  ENTRY  LIMIT  EXCEEOED.  CHANGE  WILL  NOT  BE  MADE) 
FORMAT  ( A80) 


FORMAT  (54HENTER  NUMBER  OF  A RECORD  ON  OLO  FILE  AFTER  WHICH  THIS  . 
8/.15HCHANGED  RECORD  .I4.38H  IS  TO  BE  INSERTED.  ENTER  NUMBER  0 IF  . 
S/.59HTHIS  RECORD  WILL  PRECEDE  ALL  THE  RECORDS  ON  THE  OLD  FILE  ) 
FORMAT  < 56HOO  YOU  WISH  OLD  RECORD  RETURNED  TO  THE  FILE  UNCHANGED  0 


8R./.61HD0  YOU  WISH  THE  CHANGED  RECORD  TO  REPLACE  IT  IN  SAME  LOCATI 
80N./.61HAS  BEFORE?  U--R  E TURN  UNCHANGED.  C--REPLACE  OLO  WITH  CHANG 
SCO  > 

FORMAT  (52HDELETE  ENTRY  LIMIT  EXCEEDED.  DELETE  WILL  NOT  BE  MADE) 
FORMAT  ( 54 HHOW  MANY  RECORDS — UP  TO  7--00  YOU  WISH  TO  ADD  AFTER  . 
8/.14HREC0RD  NUMBER  .I4.41H  ??  ENTER  A NUMBER  FROM  1 TO  7.  IF  TO 
8U./.44HOO  NOT  WISH  TO  ADD  ANY  RECORDS  AFTER  RECORD  . 1 4 . 1 1 H ENTER  0 
8 ) 

FORMAT  (55HWHEN  CARD  COLUMN  MARKING  GUIDE  APPEARS  ENTER  NEW  RECORD 
8./.33HWHICH  WILL  BE  AOOEO  AFTER  RECORO  .14) 

FORMAT  ( 2 3h  00  NOT  ENTER  MORE  THAN  .I3.8H  RECORDS) 

FORMAT  (14HARE  THE  ABOVE  .I2.34H  RECORDS  TO  BE  ADDED  AFTER  RECORD 
8.I4/.49HAS  A CONSECUTIVE  BLOCK  CORRECT??  Y— YES.  N--NO) 

FORMAT  (49HAD0  ENTRY  LIMIT  EXCEEOED.  RECORO  BLOCK  NOT  ADDED) 
FORMAT  (56HENTER  RECORD  NUMBER  OF  A RECORD  NOW  ON  THE  OLD  FILE  ThA 
ST./.61HTHIS  RECORO  WILL  FOLLOW  IN  ITS  NEW  LOCATION  ON  NEW  FILE 
8 ) 

FORMAT  (V) 
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141 

142 


143 

144 

145 

146 


147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 
167 


168 

169 

170 

171 

172 


173 
1 74 


FORMAT  (51HRECORO  CANNOT  B(  NOVCO.  AOO  OR  OELETE  BUFFER  FILLED) 
FORMAT  (44MFIRST  RECORD  NONBER  OF  BLOCK  TO  BE  MOVED  IS  .14./.59HEN 
8TER  LAST  RECORD  NUMBER  OF  BLOCK. THEN  ENTER  COMMA  OR  SPACE./ .59MENI 
tER  RECORD  NUMBER  OF  A RECORO  NOB  ON  OLD  FILE  UM1CH  THIS  ./. 59HBL0C 
(K  OF  CONSECUTIVE  RECORDS  WILL  FOLLOW  ON  NEB  FILE  ./.S9HEXAMP 

»IE  IF  FIRST  RECORD  HAS  7. ENTER  10.35  AND  RECORDS  ./.S9M 

1 7.8.9,10  HILL  FOLLOW  RECORO  35  ON  NEW  FILE  > 

FORMAT  <1H  ,|4,5H  AND  .I4.38H  ILLEGAL  FOR  BLOCK  RECORDS  MOVE.  LAST 
8 , /.23HRECORD  NUMBER  OF  BLOCK  .14.23M  NOT  LARGER  THAN  FIRST  ,14) 
FORMAT  <1H  , 1 4 , 36H  ILLEGAL.  MINIMUM  IS  0,  MAXIMUM  IS  ,14) 

FORMAT  (28HLAST  RECORO  NUMBER  OF  BLOCK  ,I4,1lM  IS  ILLEGAL) 

FORMAT  (1H  .I4.47H  RECORDS  IH  THIS  BLOCK.  REMAINING  STORAGE  IN  , 
8/.62HTHE  AOO  OR  DELETE  BUFFERS  INSUFFICIENT.  BLOCK  CANNOT  BE  MOVED 
8.  > 

FORMAT  ( 4 6H  FIRST  RECORO  NUMBER  OF  BLOCK  TO  BE  OELETEO  IS  .14,/, 58  < 
RENTER  RECORO  NUMBER  OF  LAST  RECORD  IN  BLOCK  TO  BE  DELETEO.) 

FORMAT  ( 1 H , 1 4 , SH  ANO  , 4.25H  ILLEGAL  FOR  BLOCK  DELETE) 

FORMAT  <1H  , 1 4 ,4  H OR  ,I4,31H  ILLEGAL.  MINIMUM  IS  1, MAXIMUM  ,14) 
FORMAT  ( 1 H .I4.46M  RECORDS  IN  BLOCK.  REMAINING  STORAGE  IN  DELETE,/ 

8,50hbuffer  insufficient,  block  oelete  cannot  be  made.) 

FORMAT  (20H  THIS  IS  last  RECOFO  , I4.25H  of  block  beginning  WITH  ,/, 
87  HRE  CORO  , I4.48H  DO  TOU  HISM  TO  OELETE  THIS  BLOCK?  V — YES, N--NO) 
FORMAT  ( 1 3HRECORO  BLOCK  ,I4,6H  THRU  .14.20H  WILL  NC i BE  OELETEO) 
FORMAT  ( 24  H NO  RECORDS  IN  ADD  BUFFER) 

FORMAT  ( 1 7HREC0RD  FOLLOWING  .I4.9H  LAST  OF  .13.14H  IN  ADO  BUFFER) 
FORMAT  (27MN0  RECOROS  IN  CHANGE  BUFFER) 

FORMAT  (7HREC0R0  .I4.9H  LAST  OF  .I3.25H  RECORDS  IN  CHANGE  BUFFER) 
FORMAT  (27HNO  RECOROS  IN  DELETE  BUFFER) 

FORMAT  (7HREC0RD  ,14.9m  LAST  OF  .I3.25H  RECOROS  IN  OELETE  BUFFER) 
FORMAT  < 5 5H I F HOVE  HAS  LAST  ENTRY. SAME  RECORD  IN  ADO, DELETE  BUFFEk 

8) 

FORMAT  (A10.A70) 

FORMAT  (1H4.I6.26M  CAROS  HAVE  BEEN  PROCESSED) 

FORMAT  (46HNUMBER  OF  RECORDS  READ  FROM  OLD  INPUT  FILE  IS  ,14 ,///> 
FORMAT  (41 HNUMBER  OF  RECORDS  WRITTEN  TO  NEW  FILE  IS  ,14) 

FORMAT  ( 1 H 1 .6X.14HDATE  CR030  4UN.2X , A8 , 2X.4H T I HE, 2X , F 1 0. 6. / ) 

FORMAT  ( 1 X , A22, / ) 

FORMAT  ( 1 H .6X.32H0LD  INPUT  FILE  CAT/FILE  STRING — ,A36,/> 

FORMAT  (56HIF  YOU  INTENO  TO  SAVE  OUTPUT  ON  A NEW  FILE  ENTER  THE  NE 
8W,/,61HCAT/FILE  STRING — MAX  30  CHARACTERS — OR  ENTER — SAME-- I F OUTP 
8UT./.61HWILL  BE  RESAVEO  UNDER  SAME  CAT/FILE  STRING  AS  OLD  INPUT  FI 

8LE  ) 

FORMAT  ( 1 H , 6X  , 32HOUTPUT  0!(  FiLE  CAT/FILE  STRING — ,2x,A36./> 

FORMAT  ( / ,4  9H  ,/) 

FORMAT  ( 1 H , 1 4,4  H *,A80,4H*  ,14,2H  ,A4> 

FORMAT  (43HD0  YOU  WISH  TO  SEE  ANY  RECOROS  ON  YOUR  NEW  FILE../9H1ES 
8 OR  NO) 

FORMAT  (A1.53MTO  SEE  SEGMENT  OF  THE  FILE.  ENTER  THE  STARTING  RECOR 
8P./.60HNUM8ER  FOLLOWED  BY  THE  ENOING  RECORD  NUMBER  FOR  THE  SEGMENT 
8. , /,4X ,54  HE  X AMPLE  RESULT  ,/ 

8, 4 X, 56H 1 0 12  RECOROS  10,11.12  OISPLAYED.  ,/, 

84X.56M10.10  RECORO  10  OIS PLAYED.  ) 

FORMAT  (36HENTER  FIRST  ANO  LAST  RECORO  NUMBERS .,/ .S6HENT ER  *0,0'  W 
8HEN  YOU  HAVE  COMPLETED  VIEWING  THE  NEW  FILE) 

FORMAT  (13HFIRST  NUMBER  ,14,21H  GREATER  THAN  SECOND  ,14) 
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175 

FORMAT 

814) 

176 

FORMAT 

177 

FORMAT 

178 

FORMAT 

8/) 

179 

FORMAT 

180 

FORMAT 
8 , ✓ , 6 1 
8 .7.6 

8 ,/, 
8 ,/ 
8 

8 

181 

FORMAT 
8/  , 55MPI 

182 

FORMAT 

183 

FORMAT 

184 

F ORMAT 
85  7h  E 
8 QUIT 
8E  SAVE  1 

8 

8 OR  S 

185 

FORMAT 

186 

F ORMAT 

187 

FORMAT 

188 

FORMAT 

189 

FORMAT 
8 ./. 1M 
8WER  y- 

190 

FORMAT 

191 

FORMAT 

192 

FORMAT 

193 

FORMAT 

194 

FORMAT 

195 

FORMAT 

196 

F ORMAT 
END 

(/. 14.1 X, I4.43H  ARE  ILLEGAL.  NUMBER  MUST  BE  IN  RANGE  1 TO  , 

(1H4.I6.34H  CAROS  PROCESSED  EROM  ACSlt  TO  BC01 
( 1 9ME OF  NOT  READ  AFTER  ,14, 8H  RECOROS) 

(/ .48HNUMBER  OF  RECOROS  WRITTEN  TO  NEW  ASCBCO  FILE  IS  .14,/ 

< 52HDO  TOU  WANT  A PRINTEO  COPT  OF  FILE?  --TES — OR — NO  — ) 
(56H ENTER  ONE  OF  THE  NUMBERS  BELOW  TO  SHOW  PRINTER  SELECTED 

H 1 PRINT  AT  SAGA  -AT-  UNCLASSIFIED  FILES  ONLT 

1 H 2 PRINT  AT  F-S1TE  -BH- 

6 1 H 3 PRINT  AT  MAIN  SITE  -22- 

,61m  4 PRINT  ELSEWHERE  -??-  USER  MUST  KNOW  THE  TWO 

/ ,6  1 H CHARACTER  STATION  CODE 

) 

(54HENTER  TWO  CHARACTER  STATION  CODE.  IF  TOU  DO  NOT  KNOW  , 
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